home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / SAMMLER_GOTOGARAGE.TCL < prev    next >
Encoding:
Text File  |  2000-08-18  |  1.2 KB  |  53 lines
  1. # -----------------------------------------------------------
  2. # Spezialmanoever fuer Sammler:
  3. # Manoever fuer Anflug der Garage
  4. #
  5. #   ⌐ radon labs gmbh
  6. #
  7. #   08-Aug-00   af      created
  8. # ------------------------------------------------------------
  9.  
  10. # eine Root fuer Anflugmanoever
  11. new nroot sammler/gotogarage
  12. sel sammler/gotogarage
  13.  
  14. # einfaches Anfliegen
  15. new ncommandlist goto
  16. goto.setadjusttype      reach
  17. goto.settestcommand     sgotogarage_test
  18. goto.addcommand true 0 0 -10 false 0 0 0 nothing 5.0
  19.  
  20. proc sgotogarage_test {} { 
  21.  
  22.     # nur 0.5 zurueck, anderes Script macht Entscheidung
  23.     return 0.5
  24. }
  25.  
  26. # Stures Aufsteigen, ohne Zielpunktbeachtung
  27. new ncommandlist rise
  28. rise.setadjusttype    horimaneuver
  29. rise.settestcommand   srise_test
  30. rise.addcommand true 0 10 0 false 0 0 0 nothing 4.0
  31.  
  32. proc srise_test {} { 
  33.  
  34.     # Wenn wir aufsteigen muessen, eine 1, sonst 0 zureuck
  35.     set ziel [.gettargetpos]
  36.     set pos  [.getposition]
  37.     
  38.     set ziel_y [lindex $ziel 1]
  39.     set pos_y  [lindex $pos 1]
  40.     
  41.     if {[expr $ziel_y - $pos_y] > 1.0} {
  42.         set retvalue 1.0
  43.     } else {
  44.         set retvalue 0.0
  45.     }
  46.  
  47.     return $retvalue
  48. }
  49.  
  50. sel ..
  51. sel ..
  52.  
  53.